home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / azpzip / _setup.1 / frmOptions.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-03-13  |  6.4 KB  |  208 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "ActiveZipper Pro Options"
  5.    ClientHeight    =   2910
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4575
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmOptions.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   2910
  23.    ScaleWidth      =   4575
  24.    StartUpPosition =   3  'Windows Default
  25.    Begin VB.Frame Frame1 
  26.       Caption         =   "Extraction Options"
  27.       BeginProperty Font 
  28.          Name            =   "Tahoma"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   700
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       Height          =   735
  37.       Index           =   1
  38.       Left            =   0
  39.       TabIndex        =   11
  40.       Top             =   1680
  41.       Width           =   4575
  42.       Begin VB.ComboBox Combo2 
  43.          Height          =   315
  44.          Left            =   2760
  45.          Style           =   2  'Dropdown List
  46.          TabIndex        =   13
  47.          Top             =   240
  48.          Width           =   1575
  49.       End
  50.       Begin VB.CheckBox RunFile 
  51.          Caption         =   "Run File after extraction?"
  52.          Height          =   375
  53.          Left            =   120
  54.          TabIndex        =   12
  55.          Top             =   240
  56.          Width           =   1335
  57.       End
  58.       Begin VB.Label Label4 
  59.          Caption         =   "Window State:"
  60.          Height          =   255
  61.          Left            =   1680
  62.          TabIndex        =   14
  63.          Top             =   240
  64.          Width           =   1095
  65.       End
  66.    End
  67.    Begin VB.CommandButton Command1 
  68.       Caption         =   "&Cancel"
  69.       Height          =   375
  70.       Index           =   1
  71.       Left            =   3480
  72.       TabIndex        =   10
  73.       Top             =   2520
  74.       Width           =   1095
  75.    End
  76.    Begin VB.CommandButton Command1 
  77.       Caption         =   "&OK"
  78.       Height          =   375
  79.       Index           =   0
  80.       Left            =   2280
  81.       TabIndex        =   9
  82.       Top             =   2520
  83.       Width           =   1095
  84.    End
  85.    Begin VB.Frame Frame1 
  86.       Caption         =   "Archive Options"
  87.       BeginProperty Font 
  88.          Name            =   "Tahoma"
  89.          Size            =   8.25
  90.          Charset         =   0
  91.          Weight          =   700
  92.          Underline       =   0   'False
  93.          Italic          =   0   'False
  94.          Strikethrough   =   0   'False
  95.       EndProperty
  96.       Height          =   1575
  97.       Index           =   0
  98.       Left            =   0
  99.       TabIndex        =   0
  100.       Top             =   0
  101.       Width           =   4575
  102.       Begin VB.TextBox CLevel 
  103.          Height          =   285
  104.          Left            =   1560
  105.          TabIndex        =   7
  106.          Text            =   "2000"
  107.          Top             =   1200
  108.          Width           =   495
  109.       End
  110.       Begin VB.ComboBox Combo1 
  111.          Height          =   315
  112.          Left            =   2520
  113.          Style           =   2  'Dropdown List
  114.          TabIndex        =   5
  115.          Top             =   600
  116.          Width           =   1200
  117.       End
  118.       Begin VB.TextBox DDrive 
  119.          Height          =   285
  120.          Left            =   3480
  121.          TabIndex        =   3
  122.          Text            =   "A:\"
  123.          Top             =   240
  124.          Width           =   375
  125.       End
  126.       Begin VB.CheckBox CopyArc 
  127.          Caption         =   "Copy Split Files to:"
  128.          Height          =   255
  129.          Left            =   1800
  130.          TabIndex        =   2
  131.          Top             =   240
  132.          Width           =   1695
  133.       End
  134.       Begin VB.CheckBox Encrypt 
  135.          Caption         =   "Encrypt (32bit encryption)"
  136.          Height          =   375
  137.          Left            =   120
  138.          TabIndex        =   1
  139.          Top             =   240
  140.          Width           =   1335
  141.       End
  142.       Begin VB.Label Label3 
  143.          Caption         =   "Enter values between 256 and 3065"
  144.          Height          =   375
  145.          Left            =   2160
  146.          TabIndex        =   8
  147.          Top             =   1080
  148.          Width           =   2295
  149.       End
  150.       Begin VB.Label Label2 
  151.          Caption         =   "Compression Level:"
  152.          Height          =   195
  153.          Left            =   120
  154.          TabIndex        =   6
  155.          Top             =   1200
  156.          Width           =   1440
  157.       End
  158.       Begin VB.Label Label1 
  159.          Caption         =   "Disk size:"
  160.          Height          =   255
  161.          Left            =   1800
  162.          TabIndex        =   4
  163.          Top             =   720
  164.          Width           =   735
  165.       End
  166.    End
  167. Attribute VB_Name = "frmOptions"
  168. Attribute VB_GlobalNameSpace = False
  169. Attribute VB_Creatable = False
  170. Attribute VB_PredeclaredId = True
  171. Attribute VB_Exposed = False
  172. Private Sub Command1_Click(Index As Integer)
  173. Select Case Index
  174. Case 0
  175. Dim i As Integer
  176. i = Combo1.ListIndex
  177. frmAZPCoDec.ActiveZipperPro1.CopyFiles = CopyArc.Value
  178. frmAZPCoDec.ActiveZipperPro1.Garble = Encrypt.Value
  179. frmAZPCoDec.ActiveZipperPro1.DiskDrive = DDrive.Text
  180. frmAZPCoDec.ActiveZipperPro1.DiskSize = Combo1.List(i)
  181. frmAZPCoDec.ActiveZipperPro1.Level = CLevel.Text
  182. RFile = RunFile.Value
  183. WState = Combo2.ListIndex
  184. Unload Me
  185. Case 1
  186. Unload Me
  187. End Select
  188. End Sub
  189. Private Sub Form_Load()
  190. Combo1.AddItem "1.4"
  191. Combo1.AddItem "1.2"
  192. Combo1.AddItem "720"
  193. Combo1.AddItem "360"
  194. Combo1.ListIndex = 3
  195. Combo2.AddItem "0"
  196. Combo2.AddItem "1"
  197. Combo2.AddItem "2"
  198. Combo1.ListIndex = 1
  199. Combo2.ListIndex = 1
  200. CopyArc.Value = CInt(frmAZPCoDec.ActiveZipperPro1.CopyFiles)
  201. If frmAZPCoDec.ActiveZipperPro1.Garble = True Then
  202. Encrypt.Value = 1
  203. Encrypt.Value = 0
  204. End If
  205. DDrive.Text = frmAZPCoDec.ActiveZipperPro1.DiskDrive
  206. CLevel.Text = frmAZPCoDec.ActiveZipperPro1.Level
  207. End Sub
  208.